home *** CD-ROM | disk | FTP | other *** search
/ Publication 7 / Publication_07_1996_High-Tech_de_Side_B.d64 / fahrsimulation (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  158 lines
  1. 10 rem ********************************
  2. 20 rem          fahrsimulator
  3. 30 rem ********************************
  4. 100 rem ton vorbereiten
  5. 110 si=54272:pokesi+24,15
  6. 120 pokesi+1,248:pokesi+8,6:pokesi+15,9
  7. 130 pokesi+5,154:pokesi+12,9:pokesi+19,9
  8. 200 cl=6:gosub6200
  9. 210 printchr$(142);chr$(8)
  10. 220 print"[147][158]","[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  11. 230 print," fahr - simulator "
  12. 270 gosub5000
  13. 300 ifpeek(12800)=120then330
  14. 310 c=0:fora=12800to13229:readb:pokea,b:c=c+b:next
  15. 315 ifc<>49567thenprint"pruefsummenfehler!":stop
  16. 320 fora=704to766:readb:pokea,b:next
  17. 330 poke251,102:poke883,8
  18. 340 print:print" weiter ? ";
  19. 350 gosub6000
  20. 360 ifx$<>"j"andx$<>"y"then350
  21. 400 cl=6:gosub6200
  22. 410 print"[147][159] *** schwierigkeitsgrad ***
  23. 420 [153]" tastesys   fuer
  24. 430 print"   a[158]  :  anfaenger
  25. 440 [153]"   bsys  :  fortgeschrittene
  26. 450 print"   c[158]  :  langjaehrige autofahrer
  27. 460 [153]"   dsys  :  profis
  28. 470 print"   e[158]  :  selbstmoerder
  29. 480 [153]"fahrbahnbreite  (a-e)sys : ";
  30. 490 [141]6000:br$[178]x$
  31. 500 br[178]70[171][198](x$):[139]br[179]1[176]br[177]5[167]490
  32. 510 [153]br$
  33. 520 :
  34. 530 [153]"geschwindigkeit (a-e)sys : ";
  35. 540 [141]6000:ge$[178]x$:[139]x$[178]"@"[167][141]6400:[137]530
  36. 550 ge[178]70[171][198](x$):[139]ge[179]1[176]ge[177]5[167]540
  37. 560 [153]ge$
  38. 570 [151]252,br[172]3[170]6:[151]253,ge[172]2.5
  39. 580 [129]a[178]1[164]800:[130]
  40. 600 [143] vorbereitung
  41. 610 [153]"load"
  42. 620 cr[178]0:sy[178][194](251):[151]881,3
  43. 630 [158]13094
  44. 640 [143] countdown
  45. 650 [129]a[178]9[164]0[169][171]1
  46. 660 [153]"";a
  47. 670 [129]b[178]1[164]300:[130]:[130]
  48. 680 [153]"  "
  49. 700 [143] start
  50. 710 [158]12800
  51. 720 [139][194](881)[178]255[167]1000:[143] im ziel
  52. 730 [143] crash
  53. 740 cr[178]cr[170]1
  54. 750 [153]""[166]15)"*crash*on
  55. 760 si=54272
  56. 770 pokesi+4,129:pokesi+11,129:pokesi+18,129:rem ton
  57. 780 fora=1to10:poke53294,4:b=1^1:poke53294,1:next
  58. 800 forb=1to10:printspc(15)"*crash*[145]
  59. 810 [129]a[178]1[164]120:[130]
  60. 820 [153][166]15)"*crash*on
  61. 830 fora=1to120:next:next
  62. 840 printspc(15)"           [158]"
  63. 850 pokesi+4,0:pokesi+11,0:pokesi+18,0
  64. 860 ifpeek(197)=46thengoto400
  65. 870 :
  66. 880 x=peek(870)+5+br*1.5
  67. 890 poke53262,x*8and255
  68. 900 poke53264,-(x*8>255)*128
  69. 910 fora=1to2000:next
  70. 920 goto700
  71. 930 :
  72. 1000 rem spielende
  73. 1010 print""," spiel beendet "
  74. 1020 fora=1to1500:next
  75. 1100 rem auswertung
  76. 1110 poke53269,0
  77. 1120 print"[147]","[164][164][164][164][164][164][164][164][164][164][164]"
  78. 1130 print," resultat: "
  79. 1140 ifcrthencl=7:gosub6220
  80. 1150 ifcr>15thenprint"[150]";
  81. 1200 print" fahrbahnbreite : ";br$
  82. 1210 print" geschwindigkeit: ";ge$
  83. 1220 print" crashes        :";cr
  84. 1250 p=int((7-ge)^4*(7-br)^3/2^cr)*100
  85. 1260 ifcr>15thenp=0
  86. 1270 ifp>5e5thencl=5:gosub6200
  87. 1280 print"";p;"punkte."
  88. 1310 fora=1to1000:next
  89. 1320 ifp=0thenprint" trotzdem";
  90. 1330 print" noch einmal ? ";
  91. 1340 gosub6000
  92. 1350 ifx$="n"thenpoke54296,0:cl=6:gosub6200:print:end
  93. 1360 ifx$<>"j"andx$<>"y"then1340
  94. 1370 cl=6:gosub6200:goto400
  95. 1380 :
  96. 5000 rem anleitung
  97. 5060 print" versuchen sie ihr fahrzeug
  98. 5080 [153]" unfallfrei bis zum ziel zu steuern.
  99. 5100 print" mit den beiden crsr[146]-tasten koennen
  100. 5120 [153]" sie nach links oder rechts lenken.
  101. 5170 print" [150]crashes ergeben minuspunkte ![158]
  102. 5180 [142]
  103. 6000 [143] get-rD{$7f}ine
  104. 6010 [151]53269,0
  105. 6020 [161]x$:[161]x$
  106. 6030 [129]a[178]1[164]4
  107. 6040 [153][202]("(NULL)tan(NULL)peek",a,1);"cmd";
  108. 6050 [161]x$
  109. 6060 [139]x$[179][177]""[167][153]" cmd";:[142]
  110. 6070 b[178]1[174]1[174]1
  111. 6080 [130]:[137]6030
  112. 6200 [143] farbe setzen
  113. 6210 [151]53281,cl
  114. 6220 [151]53281,cl
  115. 6230 [142]
  116. 6400 [143] fahrbahnDakter und -symbol
  117. 6410 [153]"load charakter (1-9) ? ";
  118. 6420 [141]6000:x[178][197](x$):[139]x[178]0[167]6420
  119. 6430 [153]x$:[151]883,(x[171]1)[172]10
  120. 6450 [153]" symbol ? ";
  121. 6460 [141]6000
  122. 6470 [139]x$[178]""[167][153]x$;:[137]6460
  123. 6480 [139]x$[178][199](13)[167][153]:[142]
  124. 6490 [153]x$:sy[178][194](1274)
  125. 6500 [139]sy[178]32[176]sy[178]96[167]6450
  126. 6510 [151]251,sy
  127. 6520 [129]a[178]1[164]500:[130]:[142]
  128. 6530 :
  129. 8000 [143] maschinenprogramm
  130. 8010 [131]120,169,245,141,24,208,32,119,50,169,21,141,24,208,173,31,208,32,116
  131. 8020 [131]50,14,31,208,176,40,32,67,50,14,31,208,176,32,32,243,50,32,67,50,32
  132. 8030 [131]230,50,14,31,208,176,18,32,230,50,14,31,208,176,10,206,112,3,208,197
  133. 8040 [131]206,113,3,16,192,88,96,162,0,142,0,220,174,14,208,173,1,220
  134. 8050 [131]201,127,240,15,201,251,208,23,138,24,105,2,144,14,110,16,208
  135. 8060 [131]208,9,138,56,233,2,176,3,14,16,208,141,14,208,162,127,142,0
  136. 8070 [131]220,96,0,162,60,44,162,4,134,101,232,232,232,134,98,134,100,160
  137. 8080 [131]152,132,97,160,192,132,99,169,32,160,39,145,99,136,16,251,162,24,24
  138. 8090 [131]169,32,188,80,3,145,97,200,145,97,165,251,145,99,136,145,99,152,101
  139. 8100 [131]252,168,169,32,145,97,200,145,97,165,251,145,99,136,145,99,202,56,165
  140. 8110 [131]97,233,40,133,97,176,3,198,98,56,165,99,233,40,133,99,176,199,198
  141. 8120 [131]100,165,100,197,101,176,191,201,59,208,11,162,24,189,80,3,157,81
  142. 8130 [131]3,202,16,247,96,164,253,162,0,202,208,253,136,208,250,76,67,50,174
  143. 8140 [131]80,3,240,21,232,236,114,3,202,176,14,173,115,3,205,4,220,176,6,36
  144. 8150 [131]88,48,13,16,5,44,4,220,80,6,232,236,114,3,144,3,202,48,247,138,56
  145. 8160 [131]237,80,3,142,80,3,133,88,96,169,0,133,88,234,141,112,3,169,13,162
  146. 8170 [131]24,157,80,3,202,16,250,165,252,201,22,144,4,169,20,133,252,169,39
  147. 8180 [131]56,229,252,141,114,3,165,252,74,24,105,15,10,10,10,141,14,208,162
  148. 8190 [131]0,169,1,157,0,216,157,0,217,157,0,218,157,0,219,169,32,157,0,60,157
  149. 8200 [131]0,61,157,0,62,157,0,63,202,208,225,169,216,141,15,208,162,0,142,16
  150. 8210 [131]208,142,23,208,142,27,208,142,28,208,142,29,208,142,21,208,160,11
  151. 8220 [131]140,255,7,140,255,63,160,1,140,46,208,32,119,50,32,116,50,162,128
  152. 8230 [131]142,21,208,162,0,142,31,208,96
  153. 8240 :
  154. 8400 [143] sprite
  155. 8410 [131]0,0,0,0,60,0,0,60,0,0,126,0,6,126,96,6,126,96,7,255,224,6,126,96,6,126
  156. 8420 [131]96,0,255,0,0,255,0,0,255,0,1,255,128,1,255,128,29,255,184,29,255,184
  157. 8430 [131]31,255,248,29,255,184,29,255,184,0,255,0,0,126,0
  158.